5 POKE55,0:POKE56,32:POKE51,0:POKE52,32:CLR :REM
10 B1=36864:B2=8192:B3=21760 :REM
15 FORJ=B1+7TOB1+77:READK:POKEJ,K:NEXTJ
20 FORJ=B1+257TOB1+308:READK:POKEJ,K:NEXTJ
40 DIMC$(16):FR$="N":CR$=CHR$(13)
50 PRINT"[147]":PRINT:PRINTTAB(17)"MENU":PRINT:PRINT:J=8 :REM
60 PRINT" 1. FIND ITEM NUMBERS (SCREEN OUTPUT)":PRINT :REM
70 PRINT" 2. FIND ITEM NUMBERS (PRINT OUTPUT)":PRINT :REM
80 PRINT" 3. ADD ITEMS TO THE LIST.":PRINT :REM
90 PRINT" 4. CHECK OR CHANGE ITEM CATEGORIES.":PRINT :REM
100 PRINT" 5. UPDATE THE DISK FILE.":PRINT :REM
110 PRINT" 6. CREATE A NEW DISK FILE.":PRINT :REM
120 PRINT" 7. END THIS JOB.":PRINT:PRINT :REM
130 PRINTTAB(7)"(TYPE 1 - 7  AND RETURN)":PRINT :REM
140 INPUTJ:IFJ>7THEN50
150 ONJGOTO290,310,620,710,170,1020
160 CLOSE15:PRINT"[145] ALL DONE.":END
170 PRINT"[147]":PRINT:PRINT:PRINT"UPDATING "+F$+"[146] FILE."
180 CLOSE6:OPEN6,8,6,"@0:"+F$+",S,W"
190 PRINT#6,NC;CR$
200 FORI=1TONC:PRINT#6,C$(I);CR$;:NEXTI
210 PRINT#6,N;CR$;
230 FORJ=1TON:PRINT"";J
240 N1=PEEK(B2+J):N2=PEEK(B3+J)
260 PRINT#6,N1;CR$;N2;CR$;
270 NEXT J
280 CLOSE6:GOTO50
290 FL$="S":IFFR$="N"THENGOSUB1340
300 GOTO320
310 FL$="P":IFFR$="N"THENGOSUB1340
320 PRINT"[147]":PRINT :REM
330 PRINT" NUMBER OF ITEMS IS";N:PRINT :REM
340 GOSUB1180:PRINT:PRINT:PRINTTAB(5)"(PRESS RETURN KEY FOR MENU)[145][145][145]" :REM
345 INPUT" ";Q$:GOSUB1520:IFC=0THEN50
350 POKEB1+134,K:POKEB1+133,J:POKEB1+132,K:POKEB1+131,J:PRINT
360 INPUT"INCLUSIVE OR EXCLUSIVE (TYPE I OR E)";C$ :REM
370 IFC$="I"THEN390
380 POKEB1+131,255:POKEB1+132,255
390 PRINT"RANGE OF ITEM SEARCH? ";:GOSUB1560 :REM
400 M=M2+B2+1:K=INT(M/256):J=M-256*K:POKEB1+136,K:POKEB1+135,J
410 M3=M1+B2-1:K=INT(M3/256):J=M3-256*K
420 POKE251,J:POKE252,K:POKE254,K+53 :REM
430 SYS(B1+7)
440 NN=PEEK(B1+137):IFNN>0GOTO460
450 PRINT"  NO SUCH ITEM":GOTO590
460 IFFL$="P"THEN520
470 PRINT"  ITEM NUMBERS ARE :"
480 FORI=1TONN
490 J=PEEK(B1+3584+I)+256*PEEK(B1+3840+I)-B2
500 PRINTJ;:NEXTI
510 GOTO590
520 PRINT"  IS THE PRINTER ON? (Y OR N)
530 [161]A$:[139]A$[178]""[167]530
540 [139]A$[178]"N"[167]530
550 [139]A$[178]"Y"[167]570
560 [137]530
570 [160]4:    [159]4,4:[152]4,"  ITEM NUMBERS ARE :"
580 [152]4:[137]900
590 [141]820
600 [139]NN[179][177]255[167]320
610 J[178][194](B1[170]3839):K[178][194](B1[170]4095):[137]420
620 [139]FR$[178]"N"[167][141]1340
630 N[178]N[170]1:[153]"LOAD":[153] :[143]
640 [139]N[179]13569[167]670 :[143]
650 [153]"  THE FILE IS FULL. HIT SHIFT KEY TO RETURN TO MENU." :[143]
660 N[178]N[171]1:[141]830:[137]50
670 [153]"  NEXT ITEM NUMBER IS ";N :[143]
680 [153]:[141]1180
682 [153]:[153]:[153]:[153][163]5)"(PRESS RETURN KEY FOR MENU)ONONONON" :[143]
685 [133]" ";Q$:[141]1520
690 [139]C[178]0[167]N[178]N[171]1:[137]50
700 [151]B3[170]N,K:[151]B2[170]N,J:[137]630
710 [139]FR$[178]"N"[167][141]1340
720 [153]"LOAD":[153]:[153]:[153] :[143]
730 [141]1180
740 [129]I[178]1[164]4:[153]:[130]:[153]"   (FOR MENU TYPE 0 AND PRESS RETURN)ONONON" :[143]
745 [133]" ITEM NUMBER IS ";NN:[139]NN[178]0[167]50
750 [139]NN[177]N[167]720
760 [151]251,[194](B2[170]NN)
770 [151]252,[194](B3[170]NN)
780 [158](B1[170]257):[153]
790 [153]"   (INSPECT AND/OR ALTER THEN RETURN)":[133]"ONONONONON";Q$ :[143]
800 [141]1520
810 [151]B3[170]NN,K:[151]B2[170]NN,J:[137]720
820 [153]:[153]:[153]:[153]"   (PRESS THE SHIFT KEY TO CONTINUE)" :[143]
830 [146]653,1
840 [142]
900 M[178][181](NN[173]8):R[178]NN[171]8[172]M:[139]M[178]0[167]PR[178][171]8:[137]970
910 [129]I[178]1[164]M:PR[178]8[172](I[171]1):L$[178]""
920 [129]K[178]1[164]8:PK[178]PR[170]K
930 J[178][194](B1[170]3584[170]PK)[170]256[172][194](B1[170]3840[170]PK)[171]B2
940 J$[178][196](J):L[178][195](J$):L$[178]L$[170]J$[170][200](SP$,6[171]L)
950 [130]K:[152]4,L$:[130]I
960 [139]R[178]0[167]1010
970 L$[178]"":PR[178]PR[170]8:[129]K[178]1[164]R:PK[178]PR[170]K
980 J[178][194](B1[170]3584[170]PK)[170]256[172][194](B1[170]3840[170]PK)[171]B2
990 J$[178][196](J):L[178][195](J$):L$[178]L$[170]J$[170][200](SP$,6[171]L)
1000 [130]K:[152]4,L$
1010 [160]4:[137]590
1020 [153]"LOAD":[153]:[133]"NAME OF FILE";F$
1030 [153]:[153]"IS "F$"WAIT A NEW FILE?CLOSE(Y OR N)"
1040 [161]A$:[139]A$[178]""[167]1040
1050 [139]A$[178]"Y"[167]1070
1060 [137] 5
1070 [153]:[153]" HOW MANY CATEGORIES";:[133]NC
1080 [129]I[178]1[164]39:[153]"-";:[130]:[153] :[143]
1090 F[178]0:[129]I[178]1[164]NC
1100 [153]"CATEGORY #";I;:[133]C$(I)
1110 [130]
1120 [159]6,8,6,"0:"[170]F$[170]",S,W"
1130 [152]6,NC;CR$;
1140 [129]I[178]1[164]NC:[152]6,C$(I);CR$;:[130]
1150 N[178]0:[152]6,N:[160]6
1160 [153]:[153]"FILE "F$"WAIT HAS BEEN CREATED.
1170 GOSUB820:GOTO50
1180 PRINTTAB(7)"CATEGORIES":PRINT:PRINT :REM
1190 IFNC/2=INT(NC/2)THENK=INT(NC/2):GOTO1260
1200 K=INT(NC/2)+1
1210 FORI=1TOK-1:X=I:GOSUB1330
1220 PRINTI$C$(I);TAB(19) :REM
1230 X=I+K:GOSUB1330:PRINTI$C$(I+K)
1240 NEXT
1250 X=K:GOSUB1330:PRINTI$C$(K):GOTO1300
1260 FORI=1TOK:X=I:GOSUB1330
1270 PRINTI$;C$(I);TAB(19) :REM
1280 X=I+K:GOSUB1330:PRINTI$C$(I+K)
1290 NEXT
1300 PRINT"":FORI=1TO16:PRINT:NEXT :REM
1305 PRINTTAB(21)"1 1 1 1 1 1 1":REM
1310 PRINTTAB(3)"1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6" :REM
1320 RETURN
1330 I$=MID$(STR$(X),2)+". ":RETURN :REM
1340 PRINT"[147]":PRINT:PRINT:PRINT:INPUT"NAME OF FILE";F$
1350 FR$="Y":OPEN15,8,15:OPEN6,8,6,"0:"+F$
1360 PRINT:PRINT:PRINT"READING "F$"[146] FILE . . .
1370 [132]6,NC
1380 [129]I[178]1[164]NC:[132]6,C$(I):[130]
1400 [132]6,N
1410 [139]N[178]0[167]630
1420 [129]J[178]1[164]N:[153]"";J
1430 [132]6,N1,N2
1450 [151]B2[170]J,N1:[151]B3[170]J,N2
1460 [130]J
1480 [160]6
1490 [142]
1520 C[178]0:[129]I[178]1787[164]1817[169]2 :[143]
1530 [139][194](I)[178]32[167]1550
1540 C[178]C[170]2[174]((I[171]1787)[173]2) :[143]
1550 [130]I:K[178][181](C[173]256):J[178]C[171]256[172]K:[142]
1560 [161]A$:[139]A$[178]""[167]1560
1570 [139]A$[178]"A"[167]M1[178]1:M2[178]N:[153]"ALL":[142]
1580 [153]A$;
1590 [161]B$:[139]B$[178]""[167]1590
1600 [139]B$[178]CR$[167]1630
1610 [139]B$[178][199](44)[167]M1[178][197](A$):[153]B$;:A$[178]"":[137]1590
1620 A$[178]A$[170]B$:[153]B$;:[137]1590
1630 M2[178][197](A$):[153]:[142]
1660 [131]164,251,169,0,170,133
1670 [131]251,133,253,200,208,4
1680 [131]230,252,230,254,204,135
1690 [131]144,208,11,165,252,205   :[143]
1700 [131]136,144,208,4,142,137    :[143]
1705 [131]144,96,177,251,45,131    :[143]
1710 [131]144,205,133,144,208,223  :[143]
1715 [131]177,253,45,132,144,205   :[143]
1720 [131]134,144,208,213,232,208  :[143]
1725 [131]4,202,76,35,144,152      :[143]
1730 [131]157,0,158,165,252,157    :[143]
1735 [131]0,159,76,16,144          :[143]
1740 [131]169,24,141,255,144,162   :[143]
1750 [131]0,169,34,133,253,232     :[143]
1760 [131]232,228,253,208,3,76
1770 [131]39,145,102,252,102,251   :[143]
1780 [131]176,3,76,12,145,173      :[143]
1790 [131]255,144,157,249,6,76     :[143]
1800 [131]12,145,162,34,169,0      :[143]
1810 [131]202,240,6,157,249,218    :[143]
1820 [131]76,43,145,96             :[143]